object fmFeeAnalyse: TfmFeeAnalyse
  Left = 274
  Top = 238
  Caption = #36153#29992#26597#35810
  ClientHeight = 483
  ClientWidth = 816
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 816
    Height = 33
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object cxLabel1: TcxLabel
      Left = 23
      Top = 7
      Caption = #36153#29992#21306#38388
    end
    object editbegin: TcxDateEdit
      Left = 76
      Top = 6
      TabOrder = 1
      Width = 103
    end
    object editend: TcxDateEdit
      Left = 196
      Top = 6
      TabOrder = 2
      Width = 103
    end
    object cxLabel2: TcxLabel
      Left = 182
      Top = 8
      Caption = '--'
    end
    object cxButton1: TcxButton
      Left = 550
      Top = 6
      Width = 70
      Height = 21
      Caption = #26597#35810
      TabOrder = 3
      OnClick = cxButton1Click
    end
    object btnExport: TcxButton
      Left = 632
      Top = 6
      Width = 70
      Height = 21
      Caption = #23548#20986
      TabOrder = 5
      OnClick = btnExportClick
    end
    object btnObject: TcxRadioButton
      Left = 312
      Top = 8
      Width = 113
      Height = 17
      Caption = #25353#31185#30446#26597#35810
      Checked = True
      TabOrder = 6
      TabStop = True
    end
    object btnPi: TcxRadioButton
      Left = 427
      Top = 8
      Width = 113
      Height = 17
      Caption = #25353#30456#20851#35746#21333
      TabOrder = 7
    end
  end
  object grd: TcxGrid
    Left = 0
    Top = 33
    Width = 816
    Height = 450
    Align = alClient
    TabOrder = 1
    LookAndFeel.Kind = lfOffice11
    object tv: TcxGridDBTableView
      OnDblClick = tvDblClick
      NavigatorButtons.ConfirmDelete = False
      DataController.DataSource = dsBase
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <
        item
          Kind = skCount
          Column = tvdfm_user
        end
        item
          Kind = skSum
          Column = tvdfmu1_amt
        end
        item
          Kind = skSum
          Column = dfmi1_companyamt
        end
        item
          Kind = skSum
          Column = tvdfmi1_departamt
        end>
      DataController.Summary.SummaryGroups = <>
      OptionsBehavior.FocusCellOnTab = True
      OptionsSelection.CellSelect = False
      OptionsView.Footer = True
      object tvdfm_user: TcxGridDBColumn
        Caption = #36153#29992#23545#35937
        DataBinding.FieldName = 'dfm_user'
        Width = 70
      end
      object tvdfm_depart: TcxGridDBColumn
        Caption = #37096#38376
        DataBinding.FieldName = 'dfm_depart'
        Width = 70
      end
      object tvColumn3: TcxGridDBColumn
        Caption = #36153#29992#21333#21495
        DataBinding.FieldName = 'dfm_no'
        Width = 120
      end
      object tvdfm_date: TcxGridDBColumn
        Caption = #36153#29992#30331#35760#26085#26399
        DataBinding.FieldName = 'dfm_date'
      end
      object tvdfmi1_object: TcxGridDBColumn
        Caption = #36153#29992#31185#30446
        DataBinding.FieldName = 'dfmi1_object'
        Width = 132
      end
      object tvdfmi1_class: TcxGridDBColumn
        Caption = #36153#29992#31867#21035
        DataBinding.FieldName = 'dfmi1_class'
        Width = 98
      end
      object tvdfmu1_purpose: TcxGridDBColumn
        Caption = #36153#29992#29992#36884
        DataBinding.FieldName = 'dfmu1_purpose'
        Width = 119
      end
      object tvdfm_mcode: TcxGridDBColumn
        Caption = #24065#21035
        DataBinding.FieldName = 'dfm_mcode'
      end
      object tvdfm_rate: TcxGridDBColumn
        Caption = #27719#29575
        DataBinding.FieldName = 'dfm_rate'
      end
      object tvdfmu1_amt: TcxGridDBColumn
        Caption = #36153#29992#37329#39069
        DataBinding.FieldName = 'dfmu1_amt'
        PropertiesClassName = 'TcxCalcEditProperties'
        Properties.DisplayFormat = ',0.00;-0.00'
      end
      object tvdfmi1_departamt: TcxGridDBColumn
        Caption = #37096#38376#25215#25285
        DataBinding.FieldName = 'dfmu1_departamt'
        PropertiesClassName = 'TcxCalcEditProperties'
        Properties.DisplayFormat = ',0.00;-0.00'
        Width = 70
      end
      object dfmi1_companyamt: TcxGridDBColumn
        Caption = #20844#21496#25215#25285
        DataBinding.FieldName = 'dfmu1_companyamt'
        PropertiesClassName = 'TcxCalcEditProperties'
        Properties.DisplayFormat = ',0.00;-0.00'
        Width = 70
      end
      object tvColumn1: TcxGridDBColumn
        Caption = #23457#25209#29366#24577
        DataBinding.FieldName = 'dfm_checkstate'
        Width = 80
      end
      object tvColumn2: TcxGridDBColumn
        Caption = #36153#29992#29366#24577
        DataBinding.FieldName = 'dfm_state'
        Width = 80
      end
      object tvdfm_name: TcxGridDBColumn
        Caption = #36153#29992#21517#31216
        DataBinding.FieldName = 'dfm_name'
        Width = 162
      end
      object tvdfm_desc: TcxGridDBColumn
        Caption = #20107#30001
        DataBinding.FieldName = 'dfm_desc'
        Width = 174
      end
      object tvdfmu1_remark: TcxGridDBColumn
        Caption = #22791#27880
        DataBinding.FieldName = 'dfmu1_remark'
        Width = 148
      end
    end
    object tvfee: TcxGridDBTableView
      OnDblClick = tvfeeDblClick
      NavigatorButtons.ConfirmDelete = False
      DataController.DataSource = dsBase
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <
        item
          Kind = skSum
          Column = tvfeeColumn14
        end
        item
          Kind = skCount
          Column = tvfeeColumn1
        end>
      DataController.Summary.SummaryGroups = <>
      OptionsSelection.CellSelect = False
      OptionsView.Footer = True
      object tvfeeColumn1: TcxGridDBColumn
        Caption = #36153#29992#23545#35937
        DataBinding.FieldName = 'dfm_user'
        Width = 70
      end
      object tvfeeColumn2: TcxGridDBColumn
        Caption = #37096#38376
        DataBinding.FieldName = 'dfm_depart'
        Width = 70
      end
      object tvfeeColumn12: TcxGridDBColumn
        Caption = #20851#32852#35746#21333#21495
        DataBinding.FieldName = 'dfmi2_pino'
        Width = 120
      end
      object tvfeeColumn13: TcxGridDBColumn
        Caption = #25551#36848
        DataBinding.FieldName = 'dfmi2_desc'
        Width = 120
      end
      object tvfeeColumn14: TcxGridDBColumn
        Caption = #37329#39069
        DataBinding.FieldName = 'dfmu2_amt'
        PropertiesClassName = 'TcxCalcEditProperties'
        Properties.DisplayFormat = ',0.00;-0.00'
        Width = 80
      end
      object tvfeeColumn3: TcxGridDBColumn
        Caption = #36153#29992#21333#21495
        DataBinding.FieldName = 'dfm_no'
        Width = 100
      end
      object tvfeeColumn4: TcxGridDBColumn
        Caption = #36153#29992#30331#35760#26085
        DataBinding.FieldName = 'dfm_date'
      end
      object tvfeeColumn5: TcxGridDBColumn
        Caption = #24065#21035
        DataBinding.FieldName = 'dfm_mcode'
      end
      object tvfeeColumn6: TcxGridDBColumn
        Caption = #27719#29575
        DataBinding.FieldName = 'dfm_rate'
      end
      object tvfeeColumn7: TcxGridDBColumn
        Caption = #23457#25209#29366#24577
        DataBinding.FieldName = 'dfm_checkstate'
        Width = 80
      end
      object tvfeeColumn8: TcxGridDBColumn
        Caption = #36153#29992#29366#24577
        DataBinding.FieldName = 'dfm_state'
        Width = 80
      end
      object tvfeeColumn9: TcxGridDBColumn
        Caption = #36153#29992#21517#31216
        DataBinding.FieldName = 'dfm_name'
        Width = 120
      end
      object tvfeeColumn10: TcxGridDBColumn
        Caption = #20107#30001
        DataBinding.FieldName = 'dfm_desc'
        Width = 120
      end
      object tvfeeColumn11: TcxGridDBColumn
        Caption = #22791#27880
        DataBinding.FieldName = 'dfmu2_remark'
        Width = 120
      end
    end
    object lv: TcxGridLevel
      GridView = tv
    end
    object lvfee: TcxGridLevel
      GridView = tvfee
    end
  end
  object SaveDialog: TSaveDialog
    Filter = 'xls files (*.xls)|*.XLS'
    Left = 542
    Top = 126
  end
  object tblBase: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rdaAnalyse
    ReadOnly = True
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    IndexDefs = <>
    Left = 548
    Top = 352
  end
  object dsBase: TDADataSource
    DataSet = tblBase.Dataset
    DataTable = tblBase
    Left = 584
    Top = 352
  end
  object rdaAnalyse: TDARemoteDataAdapter
    GetSchemaCall.RemoteService = ClientDataModule.RemoteService
    GetDataCall.RemoteService = ClientDataModule.RemoteService
    GetDataCall.MethodName = 'SQLGetData'
    GetDataCall.Params = <
      item
        Name = 'Result'
        DataType = rtBinary
        Flag = fResult
        Value = Null
      end
      item
        Name = 'aSQLText'
        DataType = rtString
        Flag = fIn
        Value = Null
      end
      item
        Name = 'aIncludeSchema'
        DataType = rtBoolean
        Flag = fIn
        Value = Null
      end
      item
        Name = 'aMaxRecords'
        DataType = rtInteger
        Flag = fIn
        Value = Null
      end>
    GetDataCall.Default = False
    GetDataCall.OutgoingTableNamesParameter = 'aTableNameArray'
    GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray'
    GetDataCall.IncomingDataParameter = 'Result'
    GetDataCall.OutgoingIncludeSchemaParameter = 'aIncludeSchema'
    GetDataCall.OutgoingMaxRecordsParameter = 'aMaxRecords'
    UpdateDataCall.RemoteService = ClientDataModule.RemoteService
    GetScriptsCall.RemoteService = ClientDataModule.RemoteService
    RemoteService = ClientDataModule.RemoteService
    DataStreamer = ClientDataModule.DataStreamer
    Left = 514
    Top = 352
  end
end
